﻿Public Class frmTestePicture

    Private Sub frmTestePicture_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        PictureBox1.ImageLocation = "..\..\Imagens\SquareChampions\Ahri_Square_0.png"

        For i As Integer = 0 To 19

            For j As Integer = 0 To 6

                Dim pctBox As New PictureBox
                pctBox.ImageLocation = "..\..\Imagens\SquareChampions\Ahri_Square_0.png"

                pctBox.Height = 60
                pctBox.Width = 60

                pctBox.SizeMode = PictureBoxSizeMode.StretchImage

                pctBox.Location = New Point(65 * i, 65 * j)

                Panel1.Controls.Add(pctBox)

            Next

        Next

    End Sub

End Class